(comint-carriage-motion): Start at START.

diff --git a/lisp/comint.el b/lisp/comint.el
index 31524572a511a9e474a03a8cc0e3b97acaeaa524..8eb7fa776ef0d8d2ac265eab508cb7da2783424e 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1552,6 +1552,7 @@ Make backspaces delete the previous character."
     ;; First do a quick check to see if there are any applicable
     ;; characters, so we can avoid calling save-match-data and
     ;; save-restriction if not.
+    (goto-char start)
     (when (< (skip-chars-forward "^\b\r" end) (- end start))
       (save-match-data
        (save-restriction